Sub ()

    With Application
        .Calculation = xlCalculationAutomatic
        .Cursor = xlDefault
        .DisplayAlerts = True
        .DisplayFormulaBar = True
        .DisplayScrollBars = True
        .DisplayStatusBar = True
        .EnableEvents = True
        .FixedDecimal = False
        .ReferenceStyle = xlA1
        .StatusBar = False
    End With

End Sub
